	IDENTIFICATION DIVISION.
	PROGRAM-ID. PGM3.
	DATE-WRITTEN. JUNIO 2013.
	
	ENVIRONMENT DIVISION.
	CONFIGURATION SECTION.
	SPECIAL-NAMES.
	    DECIMAL-POINT IS COMMA.
	INPUT-OUTPUT SECTION.    
       FILE-CONTROL.
            SELECT CLIENTES   ASSIGN TO 'C:\CLIENTES.DAT'
				ORGANIZATION IS INDEXED
				ACCESS MODE IS RANDOM
				RECORD KEY IS COD-CLI
				ALTERNATE RECORD KEY IS NOMBRE-CLI
                            FILE STATUS IS WS-FS-CLI.
				
	DATA DIVISION.
       FILE SECTION.
        FD CLIENTES      DATA RECORD IS REG-CLI
			     LABEL RECORD IS STANDARD.
       01  REG-CLI.
	    05 COD-CLI PIC 9(8).
	    05 NOMBRE-CLI PIC X(30).
	    05 DIRECCION-CLI PIC X(30).
	    05 TELEFONO-CLI PIC X(15).
	    05 FECHA-NAC-CLI PIC X(10).
	    05 OCUPACION-CLI PIC X(20).	 
	
       WORKING-STORAGE SECTION.
	01 WS-FS-CLI		PIC X(02).
	PROCEDURE DIVISION.
	COMIENZO.
	    OPEN OUTPUT CLIENTES.
	    
	    PERFORM CARGAR-RES1.
		
	    STOP RUN.
	 CARGAR-RES1.   
	    INITIALIZE REG-CLI. 
	    MOVE 12345633     TO COD-CLI.
 	    MOVE 'JUAN'          TO NOMBRE-CLI.
	    MOVE 'MENDOZA 1400'     TO DIRECCION-CLI.
	    MOVE '4-278-8093'       TO TELEFONO-CLI.
	    MOVE '1990-01-05'       TO FECHA-NAC-CLI.
	    MOVE 'DESARROLLADOR'     TO OCUPACION-CLI.

	    WRITE REG-CLI. 
		
	    INITIALIZE REG-CLI REPLACING ALPHANUMERIC DATA BY SPACES
	                                   NUMERIC DATA BY ZEROS.
	    MOVE 00005633     TO COD-CLI.
 	    MOVE 'PAMELA'          TO NOMBRE-CLI.
	    MOVE 'JUNIN 1400'     TO DIRECCION-CLI.
	    MOVE '4-555-8093'       TO TELEFONO-CLI.
	    MOVE '1988-07-25'       TO FECHA-NAC-CLI.
	    MOVE 'COMERCIANTE'     TO OCUPACION-CLI.

	    WRITE REG-CLI.
	    
	    INITIALIZE REG-CLI REPLACING ALPHANUMERIC DATA BY SPACES
	                                   NUMERIC DATA BY ZEROS.
	    MOVE 11111113     TO COD-CLI.
 	    MOVE 'PEDRO'          TO NOMBRE-CLI.
	    MOVE 'INDEPENDENCIA 850'     TO DIRECCION-CLI.
	    MOVE '15-555-0000'       TO TELEFONO-CLI.
	    MOVE '1989-12-01'       TO FECHA-NAC-CLI.
	    MOVE 'PELUQUERO'     TO OCUPACION-CLI.

	    WRITE REG-CLI.	    

	    INITIALIZE REG-CLI REPLACING ALPHANUMERIC DATA BY SPACES
	                                   NUMERIC DATA BY ZEROS.
	    MOVE 11188888     TO COD-CLI.
 	    MOVE 'MARIA'          TO NOMBRE-CLI.
	    MOVE 'SALTA 1400'     TO DIRECCION-CLI.
	    MOVE '4-000-8093'       TO TELEFONO-CLI.
	    MOVE '1955-09-14'       TO FECHA-NAC-CLI.
	    MOVE 'VERDULERA'     TO OCUPACION-CLI.

	    WRITE REG-CLI.
		
		INITIALIZE REG-CLI REPLACING ALPHANUMERIC DATA BY SPACES
	                                   NUMERIC DATA BY ZEROS.
	    MOVE 00000222     TO COD-CLI.
 	    MOVE 'ESTELA'          TO NOMBRE-CLI.
	    MOVE 'PASEO COLON 140'     TO DIRECCION-CLI.
	    MOVE '4-000-8333'       TO TELEFONO-CLI.
	    MOVE '1987-09-13'       TO FECHA-NAC-CLI.
	    MOVE 'ABOGADA'     TO OCUPACION-CLI.

	    WRITE REG-CLI.
		
		INITIALIZE REG-CLI REPLACING ALPHANUMERIC DATA BY SPACES
	                                   NUMERIC DATA BY ZEROS.
	    MOVE 00000333     TO COD-CLI.
 	    MOVE 'ANTONIO'          TO NOMBRE-CLI.
	    MOVE 'CORRIENTES 1440'     TO DIRECCION-CLI.
	    MOVE '4-000-2222'       TO TELEFONO-CLI.
	    MOVE '1988-09-07'       TO FECHA-NAC-CLI.
	    MOVE 'BARRRENDERO'     TO OCUPACION-CLI.

	    WRITE REG-CLI.
	    
	    